home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amiga / rexxecute / examples / paver.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-12-29  |  323 b   |  21 lines
  1. /* test of REXX I/O */
  2. trace
  3. do j=1 to 4;
  4. do i=1 to 6;
  5.    left = (i-1)*106
  6.    top  = (j-1)*50
  7.    pos="con:"left"/"top"/106/50/"i":"j
  8.    call open w.i.j,pos,'a'
  9.    end
  10.    end j
  11.  
  12. /* write to each one ...         */
  13. do j=1 to 4;
  14. do i=1 to 6;
  15.    call writeln w.i.j,i j
  16.    end
  17.    end j
  18.  
  19. /* bail out (automatic cleanup)  */
  20. exit
  21.